################################################################################
## SANITY CHECK SCRIPT FOR PRAGLOOK
## sanity check the data from the praglook experiment
##
## mcf 6/13
################################################################################

## PRELIMINARIES
rm(list = ls())
source("useful.R")
source("et_helper.R")

d <- read.csv("processed_data/praglook processed.csv")

## THINGS TO CHECK
## 1. distribution of data 

# do histograms of the data for x and y coordinates
hist(d$x)

# break down by subject 
# HINT: use ggplot facets!


## 2. location of fixations
# plot all the datapoints


## 2a. check location of fixations that are on the fixation cross
##     better be the center!


# and as densities (try geom="density2d")


# also try plotting by subject


## 2b. now fixations that aren't on the cross

# basic scatter plot

# and densities by subject

## 3. Check for missing data
# how many NAs are there in the dataset?


# how about for each participant?
# HINT: use na.action="na.pass" to pass NAs through aggregate

